home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 16 / Commodore_Disc_16_19xx_-_de.d64 / schiff versenken (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  18KB  |  470 lines
  1. 10 rem*****************************
  2. 20 rem*****                  ******
  3. 30 rem****  schiffeversenken   ****
  4. 40 rem***         von           ***
  5. 50 rem**     horst sturhahn      **
  6. 60 rem**     rueterweg 130       **
  7. 70 rem**     4900 herford        **
  8. 80 rem***   tel:05221/33264     ***
  9. 90 rem****                     ****
  10. 95 rem*****************************
  11. 110 dima(15,15),b(15,15)
  12. 120 print"[147]";:poke53280,6:poke53281,6
  13. 130 print"[153]schiffeversenken[146][154]"
  14. 140 print:print"von[153]"
  15. 150 print:printtab(11)chr$(72);chr$(79);chr$(82);chr$(83);chr$(84);chr$(32);chr$(83);chr$(84);chr$(85);
  16. 160 printchr$(82);chr$(72);chr$(65);chr$(72);chr$(78)
  17. 170 print"[158]anleitung ?    (j[146][153]:n[146][153])"
  18. 180 geta$:ifa$=""then170
  19. 190 ifa$="n"then750
  20. 200 ifa$<>"j"thenprint"falsche eingabe !!!":fort=1to1000:next:goto120
  21. 210 print:gosub650:forx=ito10
  22. 220 print"             anleitung"
  23. 230 fort=1to100:next
  24. 240 print"anleitung[146]"
  25. 250 fort=1to100:next
  26. 260 next
  27. 270 print:print"schiffeversenken,besser bekannt als"
  28. 280 print:print"flottenmanoever,ist ein spiel gegen"
  29. 290 print:print"den computer.die spielbedienung erfolgt"
  30. 300 print:print"ueber tastatur  a =rauf   z =runter"
  31. 310 print". =links  / =rechts"
  32. 320 print:print"oder joystick (port 2)."
  33. 330 print:print"aussuchen koennen sie die"
  34. 340 print:print"schussfolge,und einen von 3 schwierig-"
  35. 350 print:print"keitsgraden."
  36. 360 gosub680:gosub650
  37. 370 print:print"             [158]anleitung[146]"
  38. 380 print:printtab(5)"sinn und zweck des spiels"
  39. 390 print:print:print"liegt darin,sechs vom computer"
  40. 400 print:print"versteckte schiffe aufzuspueren,und zu"
  41. 410 print:print"versenken,bevor es dem computer gelingt"
  42. 420 print:print"die eigene flotte zu vernichten."
  43. 430 print:print"die 6,zur flotte gehoerende schiffe,"
  44. 440 print:print"sind in 4 laengen unterteilt !"
  45. 450 gosub680:gosub650
  46. 460 print:print"[158]anleitung[146]"
  47. 470 print:printtab(10)"schiffslaengen":print
  48. 480 print:print"   flugzeugtraeger[146]  [152]laenge  5[146]"
  49. 490 print:print"   zerstoerer[146]       [152]laenge  4[146]"
  50. 500 print:print"   flaggschiff[146]      [152]laenge  4[146]"
  51. 510 print:print"   u-boot[146]           [152]laenge  3[146]"
  52. 520 print:print"   minensuchboot[146]    [152]laenge  3[146]"
  53. 530 print:print"   schnellboot[146]      [152]laenge  2[146]"
  54. 540 gosub680:gosub650
  55. 550 print:print"[158]anleitung[146]"
  56. 560 print:print"[155]wird waerend der schlacht ein treffer"
  57. 570 print:print"erzielt,bekommt der schuetze einen"
  58. 580 print:print"schuss dazu."
  59. 590 print:print"das spiel ist dann zuende,wenn es"
  60. 600 print:print"einem der beiden spieler gelungen ist"
  61. 610 print:print"alle schiffe des gegners zu versenken."
  62. 620 print:print:print"und nun viel spass !!"
  63. 630 gosub680
  64. 640 goto750
  65. 650 rem * programm-name u.p.g.m. *
  66. 660 print"[147]";"[153]schiffeversenken[146]"
  67. 670 return
  68. 680 print"[144]space"
  69. 690 geta$:ifa$=" "thenreturn
  70. 700 fori=1to70:next
  71. 710 print"[144]space[146]"
  72. 720 geta$:ifa$=" "thenreturn
  73. 730 fori=1to70:next
  74. 740 goto680
  75. 750 gosub650
  76. 760 print"gib deinen namen ein !  ";
  77. 770 aj=0:sn$="":rem * get-routine *
  78. 780 getaj$:ifaj$=""then780
  79. 790 ifaj$=chr$(13)then850
  80. 800 ifaj$=chr$(20)thenaj=aj-2:ifaj<0then760
  81. 810 aj=aj+1:ifaj>=10thenaj=10
  82. 820 sn$=sn$+aj$:sn$=left$(sn$,aj)
  83. 830 print"          [157][157][157][157][157][157][157][157][157][157]";sn$
  84. 840 goto780
  85. 850 print"                                    "
  86. 860 print:print:print"t[146] astaur  oder  j[146] oystick ?":print
  87. 870 getjt$:ifjt$="j"orjt$="t"then890
  88. 880 goto870
  89. 890 print:print"waehle spielstufe (1-3)":print
  90. 900 getss$
  91. 910 ss%=val(ss$):ifss%>0andss%<4then930
  92. 920 goto900
  93. 930 print:print"anzahl der schussfolge (1-5)"
  94. 940 getsv$
  95. 950 sv%=val(sv$):ifsv%>0andsv%<6then970
  96. 960 goto940
  97. 970 gc=1185:gs=1205:vc=55457:vs=55477
  98. 980 print"[147]"
  99. 990 tx=0:ty=0:tq=0:jp=56320:si=54272
  100. 1000 pokesi+3,15:pokesi+2,15
  101. 1010 pokesi+5,0*16+0:pokesi+6,13*16
  102. 1020 pokesi+24,15
  103. 1030 cn$="computer"
  104. 1040 gosub1570
  105. 1050 print"";:print"bitte einen moment geduld !"
  106. 1060 fore=1to15:fors=1to15
  107. 1070 a(e,s)=0:b(e,s)=0
  108. 1080 next:next
  109. 1090 rem ** schiffe-verstecken **
  110. 1100 x1=1:x2=1:vc=vs
  111. 1110 fori=1to2:fork=1to6
  112. 1120 ifi=2thenpokevc+x1,1:pokevc+x2*40,1:vc=55457:gosub1710:goto1540
  113. 1130 read y:read y$
  114. 1140 gosub2160
  115. 1150 printsn$;" waehle startkoordinate fuer"
  116. 1160 printy$;".nach auswahl"
  117. 1170 print"feuerknopf oder space druecken !"
  118. 1180 ifjt$="t"thengosub4480:goto1200
  119. 1190 gosub4100
  120. 1200 sx=x1:sy=x2
  121. 1210 ifa(x1,x2)=0then1240
  122. 1220 gosub2160
  123. 1230 goto1150
  124. 1240 a(x1,x2)=1:pokegs+x2*40+x1,102
  125. 1250 pokevs+x2*40+x1,0
  126. 1260 gosub4620
  127. 1270 gosub2160
  128. 1280 printsn$;" gib ausdehnungs-richtung":print
  129. 1290 print"w[146]=wagrecht  s[146]=senkrecht ein"
  130. 1300 getd$:ifd$=""then1300
  131. 1310 ifd$="w"then1440
  132. 1320 ifd$<>"s"thengoto1300
  133. 1330 ifx2<=15-(y-1)then1350
  134. 1340 goto2290
  135. 1350 forh=1toy-1:pokegs+x2*40+x1+h*40,102:pokevs+x2*40+x1+h*40,0
  136. 1360 ifa(x1,x2+h)=0thengoto1410
  137. 1370 fort=0toh-1:pokegs+x2*40+x1+t*40,87:pokevs+x2*40+x1+t*40,14
  138. 1380 gosub4580
  139. 1390 a(x1,x2+t)=0:next
  140. 1400 goto1140
  141. 1410 a(x1,x2+h)=1
  142. 1420 gosub4620
  143. 1430 next:goto1540
  144. 1440 ifx1>15-(y-1)then2200
  145. 1450 forh=1toy-1:pokegs+x2*40+x1+h,102:pokevs+x2*40+x1+h,0
  146. 1460 ifa(x1+h,x2)=0then1510
  147. 1470 fort=0toh-1:pokegs+x2*40+x1+t,87:pokevs+x2*40+x1+t,14
  148. 1480 gosub4580
  149. 1490 a(x1+t,x2)=0:next
  150. 1500 goto1140
  151. 1510 a(x1+h,x2)=1
  152. 1520 gosub4620
  153. 1530 next:next
  154. 1540 gosub2160
  155. 1550 next:next
  156. 1560 goto2380
  157. 1570 rem ** bildaufbau **
  158. 1580 print"[147]";:poke53280,6:poke53281,6
  159. 1590 print"[153]schiffeversenken[146][154]"
  160. 1600 print:print:printtab(5)"[145][145]computer            ";sn$;"[154]"
  161. 1610 fori=1to15
  162. 1620 printtab(2)"[215][215][215][215][215][215][215][215][215][215][215][215][215][215][215]     [215][215][215][215][215][215][215][215][215][215][215][215][215][215][215]"
  163. 1630 next
  164. 1640 fort=1to15
  165. 1650 poke55457+t*40,1:poke55477+t*40,1
  166. 1660 poke1185+t*40,t:poke1205+t*40,t
  167. 1670 poke55457+t,1:poke55477+t,1
  168. 1680 poke1185+t,t:poke1205+t,t
  169. 1690 next
  170. 1700 return
  171. 1710 rem ** computer positioniert **
  172. 1720 rem ** seine schiffe         **
  173. 1730 read y:read y$
  174. 1740 gosub2160
  175. 1750 print:printcn$;" positioniert ";"";y$;"[146]"
  176. 1760 foru=1to500:next
  177. 1770 gosub4620
  178. 1780 x1=int(rnd(0)*15+1)
  179. 1790 x2=int(rnd(0)*15+1)
  180. 1800 ifx2>15thenx2=15
  181. 1810 ifx1>15thenx1=15
  182. 1820 goto2130
  183. 1830 b(x1,x2)=1
  184. 1840 ifx1>15-yandx2>15-ythen1980
  185. 1850 ifx1>15-ythen1890
  186. 1860 ifx2>15-ythen1930
  187. 1870 l=int(rnd(0)*10)
  188. 1880 ifl<5then1930
  189. 1890 forh=1toy-1
  190. 1900 goto2080
  191. 1910 b(x1,x2+h)=1:gosub4620
  192. 1920 next:goto1970
  193. 1930 forh=1toy-1
  194. 1940 goto2040
  195. 1950 b(x1+h,x2)=1:gosub4620
  196. 1960 next
  197. 1970 return
  198. 1980 forh=1toy-1
  199. 1990 ifb(x1,x2-h)=0then2020
  200. 2000 fort=0toh-1:b(x1,x2-t)=0:gosub4580:next
  201. 2010 goto1740
  202. 2020 b(x1,x2-h)=1:gosub4620
  203. 2030 next:goto1970
  204. 2040 ifb(x1+h,x2)=0then2070
  205. 2050 fort=0toh-1:b(x1+t,x2)=0:gosub4580:next
  206. 2060 goto1740
  207. 2070 goto1950
  208. 2080 ifb(x1,x2+h)=0then2110
  209. 2090 fort=0toh-1:b(x1,x2+t)=0:gosub4580:next
  210. 2100 goto1740
  211. 2110 goto1910
  212. 2120 geta$:ifa$<>"j"then2120
  213. 2130 rem * koordinaten ueberpruefung *
  214. 2140 ifb(x1,x2)<>0then1780
  215. 2150 goto1830
  216. 2160 print""
  217. 2170 foru=1to3:print"                                       ":next
  218. 2180 print""
  219. 2190 return
  220. 2200 forh=1toy-1:pokegs+x2*40+x1-h,102:pokevs+x2*40+x1-h,0
  221. 2210 ifa(x1-h,x2)=0then2260
  222. 2220 fort=0toh-1:pokegs+x2*40+x1-t,87:pokevs+x2*40+x1-t,14
  223. 2230 gosub4580
  224. 2240 a(x1-t,x2)=0:next
  225. 2250 goto1140
  226. 2260 gosub4620
  227. 2270 a(x1-h,x2)=1:next
  228. 2280 goto1550
  229. 2290 forh=1toy-1:pokegs+x2*40+x1-h*40,102:pokevs+x2*40+x1-h*40,0
  230. 2300 ifa(x1,x2-h)=0then2350
  231. 2310 fort=0toh-1:pokegs+x2*40+x1-t*40,87:pokevs+x2*40+x1-t*40,14
  232. 2320 gosub4580
  233. 2330 a(x1,x2-t)=0:next
  234. 2340 goto1140
  235. 2350 gosub4620
  236. 2360 a(x1,x2-h)=1
  237. 2370 goto1430
  238. 2380 rem * spiel *
  239. 2390 ts=0:tc=0:t=0:q=0
  240. 2400 sc=sv%
  241. 2410 gosub2160
  242. 2420 ift=2then2640
  243. 2430 gosub4370
  244. 2440 x1=sx:x2=sy
  245. 2450 print"nach auswahl der zielkoordinaten"
  246. 2460 print"feuerknopf oder space-taste druecken !"
  247. 2470 ifjt$="t"thengosub4480:goto2490
  248. 2480 gosub4100
  249. 2490 ifb(x1,x2)=0thengoto2560
  250. 2500 ifpeek(gc+x1+x2*40)<>87then2420
  251. 2510 pokegc+x1+x2*40,102:pokevc+x1+x2*40,0
  252. 2520 b(x1,x2)=0:gosub4270
  253. 2530 ts=ts+1:qs=qs+1:gosub4370
  254. 2540 gosub2160:gosub3290
  255. 2550 goto2610
  256. 2560 ifpeek(gc+x1+x2*40)<>87then2420
  257. 2570 pokegc+x1+x2*40,86:pokevc+x1+x2*40,15
  258. 2580 gosub4270
  259. 2590 sc=sc-1:qs=qs+1
  260. 2600 gosub4370
  261. 2610 ifsc<=0thent=2:goto2400
  262. 2620 ifts=21then3150
  263. 2630 goto2420
  264. 2640 gosub2160
  265. 2650 gosub4430
  266. 2660 print"computer schiesst"
  267. 2670 ifss%<2then2700
  268. 2680 ifz=0then2700
  269. 2690 onzgoto3490,3640,3790,3950
  270. 2700 x1=int(rnd(0)*15+1)
  271. 2710 x2=int(rnd(0)*15+1)
  272. 2720 ifx1<1thenx1=1
  273. 2730 ifx2<1thenx2=1
  274. 2740 ifx1>15thenx1=15
  275. 2750 ifx2>15thenx2=15
  276. 2760 ifa(x1,x2)=0thengoto2840
  277. 2770 ifpeek(vs+x1+x2*40)>0then2650
  278. 2780 pokevs+x1+x2*40,1
  279. 2790 a(x1,x2)=0:gosub4270
  280. 2800 tc=tc+1:q=q+1:z=1:tx=x1:ty=x2:qc=qc+1
  281. 2810 gosub4430
  282. 2820 gosub2160:gosub3290
  283. 2830 goto2910
  284. 2840 ifpeek(gs+x1+x2*40)<>87then2650
  285. 2850 ifss%<3then2870
  286. 2860 goto4300
  287. 2870 pokegs+x1+x2*40,86:pokevs+x1+x2*40,15
  288. 2880 gosub4270
  289. 2890 sc=sc-1:qc=qc+1
  290. 2900 gosub4430
  291. 2910 ifsc<=0thent=0
  292. 2920 iftc=21then2950
  293. 2930 ift=0then2400
  294. 2940 goto2650
  295. 2950 gosub2160
  296. 2960 rem * spiel verloren *
  297. 2970 print:print"schade aber sie haben"
  298. 2980 print"leider verloren[146] !!!"
  299. 2990 print"e[157] [157]n[157] [157]d[157] [157]e[146]"
  300. 3000 fort=1to2000:next
  301. 3010 gosub2160
  302. 3020 print:print"willst du wissen wo dein gegner"
  303. 3030 print"die restlichen schiffe versteckt hat ?"
  304. 3040 geta$:ifa$=""then3040
  305. 3050 ifa$="n"then3100
  306. 3060 ifa$="j"then3080
  307. 3070 goto3040
  308. 3080 gosub2160:fori=1to15:foru=1to15:ifb(u,i)=1thenpokegc+i*40+u,102:pokevc+i*40+u,0
  309. 3090 next:next:print"da sind die schiffe, die du nicht":print"getroffen hast !!!"
  310. 3100 fort=1to5000:next:gosub2160
  311. 3110 print"[145]                                       [145]"
  312. 3120 print"[155]trefferquote c-64 :";int(100/(qc/tc));"%"
  313. 3130 print:print"[155]trefferquote ";sn$;":";int(100/(qs/ts));"%"
  314. 3140 gosub680:goto3240
  315. 3150 rem * spiel gewonnen *
  316. 3160 gosub2160
  317. 3170 print:print"[153]ich gratuliere"
  318. 3180 print"du hast gewonnen[146] !!!"
  319. 3190 print"e[157] [157]n[157] [157]d[157] [157]e[146]"
  320. 3200 fort=1to2000:next:gosub2160:print"[145]                                       [145]"
  321. 3210 print"[155]trefferquote ";sn$;":";int(100/(qs/ts));"%"
  322. 3220 print:print"[155]trefferquote [153]c-64[155] :";int(100/(qc/tc));"%"
  323. 3230 gosub680
  324. 3240 restore:goto120
  325. 3250 data5,"flugzeugtraeger[146]",4,"zerstoerer[146]",4,"flaggschiff[146]",3,"u-boot[146]"
  326. 3260 data3,"minensuchboot[146]",2,"schnellboot[146]"
  327. 3270 data5,"flugzeugtraeger[146]",4,"zerstoerer[146]",4,"flaggschiff[146]",3,"u-boot[146]"
  328. 3280 data3,"minensuchboot[146]",2,"schnellboot[146]"
  329. 3290 rem * treffer meldung *
  330. 3300 pokesi+4,65
  331. 3310 ford=1to5
  332. 3320 print"";
  333. 3330 print"[158]t [150]r [153]e f f [153]e [150]r[146]    [157][157][157][157]";
  334. 3340 ift=2then3370
  335. 3350 pokevc+x1+x2*40,10
  336. 3360 goto3380
  337. 3370 pokevs+x1+x2*40,10
  338. 3380 forl=1to50:pokesi+1,22:pokesi,l:next
  339. 3390 print"";
  340. 3400 print"[158]t [150]r [153]e f f [153]e [150]r    [157][157][157][157]";
  341. 3410 ift=2then3440
  342. 3420 pokevc+x1+x2*40,1
  343. 3430 goto3450
  344. 3440 pokevs+x1+x2*40,1
  345. 3450 forl=1to50:pokesi+1,15+l:pokesi+7,l:next
  346. 3460 next:gosub2160
  347. 3470 pokesi,0:pokesi+1,0:pokesi+4,0:pokesi+7,0
  348. 3480 return
  349. 3490 rem * int.schiffevers. *
  350. 3500 d=0:z=1
  351. 3510 x1=x1+1
  352. 3520 ifx1>15thenx1=15:d=1
  353. 3530 ifd=1goto3640
  354. 3540 ifa(x1,x2)=1then3590
  355. 3550 ifpeek(gs+x1+x2*40)<>87then3640
  356. 3560 pokegs+x1+x2*40,86:pokevs+x1+x2*40,15:z=2
  357. 3570 gosub4270
  358. 3580 sc=sc-1:qc=qc+1:gosub4430:goto2910
  359. 3590 pokevs+x1+x2*40,1:q=q+1
  360. 3600 a(x1,x2)=0:gosub4270
  361. 3610 tc=tc+1:qc=qc+1:gosub4430
  362. 3620 gosub2160:gosub3290
  363. 3630 goto3490
  364. 3640 x1=tx:x2=ty
  365. 3650 x1=x1-1
  366. 3660 d=0:z=2
  367. 3670 ifx1<1thenx1=1:d=1
  368. 3680 ifd=1thengoto3790
  369. 3690 ifa(x1,x2)=1then3740
  370. 3700 ifpeek(gs+x1+x2*40)<>87then3790
  371. 3710 pokegs+x1+x2*40,86:pokevs+x1+x2*40,15:z=3
  372. 3720 gosub4270
  373. 3730 sc=sc-1:qc=qc+1:gosub4430:goto2910
  374. 3740 pokevs+x1+x2*40,1:q=q+1:tx=x1:ty=x2
  375. 3750 a(x1,x2)=0:gosub4270
  376. 3760 tc=tc+1:qc=qc+1:gosub4430
  377. 3770 gosub2160:gosub3290
  378. 3780 goto3650
  379. 3790 x1=tx:x2=ty
  380. 3800 x2=x2-1
  381. 3810 d=0:z=3
  382. 3820 ifx2<1thenx2=1:d=1
  383. 3830 ifd=1goto3950
  384. 3840 ifa(x1,x2)=1then3900
  385. 3850 ifpeek(gs+x1+x2*40)<>87then3950
  386. 3860 pokegs+x1+x2*40,86:pokevs+x1+x2*40,15:z=4
  387. 3870 gosub4270
  388. 3880 sc=sc-1:qc=qc+1:gosub4430:goto2910
  389. 3890 gosub4270
  390. 3900 pokevs+x1+x2*40,1
  391. 3910 a(x1,x2)=0:gosub4270
  392. 3920 tc=tc+1:qc=qc+1:gosub4430
  393. 3930 gosub2160:gosub3290
  394. 3940 goto3800
  395. 3950 x1=tx:x2=ty
  396. 3960 x2=x2+1
  397. 3970 d=0:z=4
  398. 3980 ifx2>15thenx2=15:d=1:z=0:q=0
  399. 3990 ifd=1then2910
  400. 4000 ifa(x1,x2)=1then4050
  401. 4010 ifpeek(gs+x1+x2*40)<>87thenz=0:goto2910
  402. 4020 pokegs+x1+x2*40,86:pokevs+x1+x2*40,15:z=0
  403. 4030 gosub4270
  404. 4040 sc=sc-1:qc=qc+1:gosub4430:goto2910
  405. 4050 pokevs+x1+x2*40,1:gosub4270
  406. 4060 tc=tc+1:qc=qc+1:gosub4430
  407. 4070 gosub2160:gosub3290
  408. 4080 a(x1,x2)=0
  409. 4090 goto3960
  410. 4100 rem * joy-abfrage *
  411. 4110 pokevc+x1,0:pokevc+x2*40,0
  412. 4120 sx=x1:sy=x2
  413. 4130 ifpeek(jp)=111then:return
  414. 4140 ifpeek(jp)=126thenpokevc+x2*40,1:x2=x2-1:gosub4190:gosub4660:goto4100
  415. 4150 ifpeek(jp)=119thenpokevc+x1,1:x1=x1+1:gosub4230:gosub4660:goto4100
  416. 4160 ifpeek(jp)=125thenpokevc+x2*40,1:x2=x2+1:gosub4190:gosub4660:goto4100
  417. 4170 ifpeek(jp)=123thenpokevc+x1,1:x1=x1-1:gosub4230:gosub4660:goto4100
  418. 4180 goto4100
  419. 4190 rem * bereichsueberschreitung x2 *
  420. 4200 ifx2<1thenx2=1
  421. 4210 ifx2>15thenx2=15
  422. 4220 return
  423. 4230 rem * bereichsueberschreitung x1 *
  424. 4240 ifx1<1thenx1=1
  425. 4250 ifx1>15thenx1=15
  426. 4260 return
  427. 4270 rem * ton fuer nicht-treffer *
  428. 4280 pokesi+4,65:forg=1to5:pokesi+1,g*g:pokesi,g:next:pokesi+1,0:pokesi,0
  429. 4290 return
  430. 4300 rem * uberpruefung *
  431. 4310 iftq=70thentq=0:ss%=2:goto2760
  432. 4320 ifpeek(gs+x1+x2*40-40)=86thentq=tq+1:goto2700
  433. 4330 ifpeek(gs+x1+x2*40+40)=86thentq=tq+1:goto2700
  434. 4340 ifpeek(gs+x1+1+x2*40)=86thentq=tq+1:goto2700
  435. 4350 ifpeek(gs+x1-1+x2*40)=86thentq=tq+1:goto2700
  436. 4360 tq=0:goto2870
  437. 4370 rem
  438. 4380 print"[155]schuss:";sc;"  [155]treffer:   [157][157][157]";ts;
  439. 4390 ifts=0thenwe=0:goto4410
  440. 4400 we=int(100/(qs/ts))
  441. 4410 print"[155]quote:     [157][157][157][157][157]";we;"%"
  442. 4420 return
  443. 4430 print"[155]schuss:";sc;"  [155]treffer:   [157][157][157]";tc;
  444. 4440 iftc=0thenwe=0:goto4460
  445. 4450 we=int(100/(qc/tc))
  446. 4460 print"[155]quote:     [157][157][157][157][157]";we;"%"
  447. 4470 return
  448. 4480 rem * tastaturabfrage *
  449. 4490 pokevc+x1,0:pokevc+x2*40,0
  450. 4500 getta$
  451. 4510 sx=x1:sy=x2
  452. 4520 ifta$=" "then:return
  453. 4530 ifta$="a"thenpokevc+x2*40,1:x2=x2-1:gosub4190:gosub4660:goto4480
  454. 4540 ifta$="/"thenpokevc+x1,1:x1=x1+1:gosub4230:gosub4660:goto4480
  455. 4550 ifta$="z"thenpokevc+x2*40,1:x2=x2+1:gosub4190:gosub4660:goto4480
  456. 4560 ifta$="."thenpokevc+x1,1:x1=x1-1:gosub4230:gosub4660:goto4480
  457. 4570 goto4480
  458. 4580 rem*geraeusch fuer schiff setzen*
  459. 4590 pokesi+4,17
  460. 4600 forsj=2to16:pokesi+1,sj*sj-(sj*1.8):pokesi,sj:next:pokesi+4,0
  461. 4610 return
  462. 4620 rem*geraeusch fuer schiff loeschen*
  463. 4630 pokesi+4,17
  464. 4640 forsj=16to2step-1:pokesi+1,sj*sj-(sj*1.8):pokesi,sj:next:pokesi+4,0
  465. 4650 return
  466. 4660 rem * ton fuer koordinaten *
  467. 4670 pokesi+4,17
  468. 4680 forsj=10to7step-1:pokesi+1,sj*sj-(sj*1.8):pokesi,sj:next:pokesi+4,0
  469. 4690 return
  470.